home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 53 / Tiger_Disk_053_1998-08_Tiger-Crew-Disk_de_Side_B.d64 / ende - - - - 095 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  661b  |  15 lines
  1. 11111 poke53280,.:poke53281,.:printchr$(147):print"[151]lukian":fort=1to759:next
  2. 11112 :poke53265,(peek(53265)and242)+12
  3. 11113 print"[147]";:
  4. 11114 ifz=10thenprint"[147][192][192][192][192][192][192][192][192][192][192]        ende        [192][192][192][192][192][192][192][192][192][192]":goto11124
  5. 11115 poke53281,.:  print"[156]>>>>>>>>>>        ende        <<<<<<<<<<[146]";:poke53281,11
  6. 11116 print"[158]>>>>>>>>>>        ende        <<<<<<<<<<";:poke53281,.:
  7. 11117 print">>>>>>>>>>        ende        <<<<<<<<<<[146]";:poke53281,11:
  8. 11118 print">>>>>>>>>>        ende        <<<<<<<<<<";:poke53281,.
  9. 11119 print"[129]>>>>>>>>>>        ende        <<<<<<<<<<[146]";
  10. 11120 poke53265,(peek(53265)and248)+7:z=z+1:fordp=6to0step-2
  11. 11121 s=54272:pokes+4,17:pokes+24,15:pokes+4,128:pokes+1,5+abs(111-dp)
  12. 11122 poke53265,(peek(53265)and248)+dp:forx=1to50:next:next:
  13. 11123 :     goto11114
  14. 11124 sys58253
  15.